'From Pharo1.3 of 16 June 2011 [Latest update: #13307] on 24 November 2011 at 2:04:44 pm'!TestCase subclass: #TesteCelulaParede	instanceVariableNames: ''	classVariableNames: ''	poolDictionaries: ''	category: 'Jogo-Sokoban-Teste'!!TesteCelulaParede methodsFor: 'as yet unclassified' stamp: 'kgk 11/23/2011 14:27'!testeNaoRecebeObjeto	| celulaParede caixa |		celulaParede := CelulaParede new.	caixa := Caixa novaNaPosicao: (1@1).		self should: [celulaParede objeto: caixa] raise: Error.! !